home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
351-375
/
disk_352
/
treewalk
/
rexx
/
rootname.ftw
< prev
next >
Wrap
Text File
|
1992-05-06
|
170b
|
9 lines
/*
* Simple routine to return the rootname for files.rexx
*/
name = arg(2)
dot = lastpos('.', name)
if dot < 2 then say name
else say substr(name, 1, dot - 1)
return 1